# NOT RUN {
# Open data
data(Example.Data)
# Explore correlation structure
Expl_Corr <- Explore.WS.Corr(OLS.Model="Outcome~as.factor(Time)+
as.factor(Cycle) + as.factor(Condition)", Dataset=Example.Data,
Id="Id", Time="Time", Alpha=.05, Number.Bootstrap=50, Seed=123)
# explore results
summary(Expl_Corr)
# plot with correlations for all time lags, and
# add smoothed (loess) correlation function
plot(Expl_Corr, Indiv.Corrs=TRUE, Add.CI=FALSE, Add.Boot.Corrs=FALSE)
# plot bootstrapped smoothed (loess) correlation function
plot(Expl_Corr, Add.Boot.Corrs=TRUE)
# }
Run the code above in your browser using DataLab